home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / api.bas < prev    next >
Encoding:
BASIC Source File  |  1998-08-01  |  6.0 KB  |  146 lines
  1. Attribute VB_Name = "api"
  2.  
  3. Type RECT
  4.    left As Long
  5.    top As Long
  6.    right As Long
  7.    bottom As Long
  8. End Type
  9.  
  10. Type POINTAPI
  11.    x As Long
  12.    y As Long
  13. End Type
  14.  
  15.  
  16.  
  17. Public Const MF_STRING = &H0&
  18. Public Const MF_SYSMENU = &H2000&
  19. Public Const MF_SEPARATOR = &H800&
  20. Public Const DT_BOTTOM = &H8
  21. Public Const DT_CALCRECT = &H400
  22. Public Const DT_CENTER = &H1
  23. Public Const DT_CHARSTREAM = 4
  24. Public Const DT_DISPFILE = 6
  25. Public Const DT_EXPANDTABS = &H40
  26. Public Const DT_EXTERNALLEADING = &H200
  27. Public Const DT_INTERNAL = &H1000
  28. Public Const DT_LEFT = &H0
  29. Public Const DT_METAFILE = 5
  30. Public Const DT_NOCLIP = &H100
  31. Public Const DT_NOPREFIX = &H800
  32. Public Const DT_PLOTTER = 0
  33. Public Const DT_RASCAMERA = 3
  34. Public Const DT_RASDISPLAY = 1
  35. Public Const DT_RASPRINTER = 2
  36. Public Const DT_RIGHT = &H2
  37. Public Const DT_SINGLELINE = &H20
  38. Public Const DT_TABSTOP = &H80
  39. Public Const DT_TOP = &H0
  40. Public Const DT_VCENTER = &H4
  41. Public Const DT_WORDBREAK = &H10
  42.  
  43. Public Const BF_ADJUST = &H2000
  44. Public Const BF_BOTTOM = &H8
  45. Public Const BF_DIAGONAL = &H10
  46. Public Const BF_FLAT = &H4000
  47. Public Const BF_LEFT = &H1
  48. Public Const BF_MIDDLE = &H800
  49. Public Const BF_MONO = &H8000
  50. Public Const BF_RIGHT = &H4
  51. Public Const BF_SOFT = &H1000
  52. Public Const BF_TOP = &H2
  53. Public Const BDR_INNER = &HC
  54. Public Const BDR_OUTER = &H3
  55. Public Const BDR_RAISED = &H5
  56. Public Const BDR_RAISEDINNER = &H4
  57. Public Const BDR_RAISEDOUTER = &H1
  58. Public Const BDR_SUNKEN = &HA
  59. Public Const BDR_SUNKENINNER = &H8
  60. Public Const BDR_SUNKENOUTER = &H2
  61. Public Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT)
  62. Public Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT)
  63. Public Const BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL Or BF_BOTTOM Or BF_LEFT)
  64. Public Const BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL Or BF_BOTTOM Or BF_RIGHT)
  65. Public Const BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL Or BF_TOP Or BF_LEFT)
  66. Public Const BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL Or BF_TOP Or BF_RIGHT)
  67. Public Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
  68. Public Const BF_TOPLEFT = (BF_TOP Or BF_LEFT)
  69. Public Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT)
  70. Public Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
  71. Public Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
  72. Public Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
  73. Public Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)
  74. Public Const SM_CXFRAME = 32
  75. Public Const SM_CYFRAME = 33
  76. Public Const SM_CYCAPTION = 4
  77. Public Const SM_CXSMICON = 49
  78. Public Const SM_CYSMICON = 50
  79. Public Const COLOR_ACTIVEBORDER = 10
  80. Public Const COLOR_CAPTIONTEXT = 9
  81. Public Const DC_ACTIVE = &H1
  82. Public Const DC_SMALLCAP = &H2
  83. Public Const DC_ICON = &H4
  84. Public Const DC_TEXT = &H8
  85. Public Const DC_INBUTTON = &H10
  86. Public Const DFC_CAPTION = 1
  87. Public Const DFC_MENU = 2
  88. Public Const DFC_SCROLL = 3
  89. Public Const DFC_BUTTON = 4
  90. Public Const DFC_POPUPMENU = 5
  91. Public Const DFCS_CAPTIONCLOSE = &H0
  92. Public Const DFCS_CAPTIONMIN = &H1
  93. Public Const DFCS_CAPTIONMAX = &H2
  94. Public Const DFCS_CAPTIONRESTORE = &H3
  95. Public Const DFCS_CAPTIONHELP = &H4
  96. Public Const DFCS_MENUARROW = &H0
  97. Public Const DFCS_MENUCHECK = &H1
  98. Public Const DFCS_MENUBULLET = &H2
  99. Public Const DFCS_MENUARROWRIGHT = &H4
  100. Public Const DFCS_SCROLLUP = &H0
  101. Public Const DFCS_SCROLLDOWN = &H1
  102. Public Const DFCS_SCROLLLEFT = &H2
  103. Public Const DFCS_SCROLLRIGHT = &H3
  104. Public Const DFCS_SCROLLCOMBOBOX = &H5
  105. Public Const DFCS_SCROLLSIZEGRIP = &H8
  106. Public Const DFCS_SCROLLSIZEGRIPRIGHT = &H10
  107. Public Const DFCS_BUTTONCHECK = &H0
  108. Public Const DFCS_BUTTONRADIOIMAGE = &H1
  109. Public Const DFCS_BUTTONRADIOMASK = &H2
  110. Public Const DFCS_BUTTONRADIO = &H4
  111. Public Const DFCS_BUTTON3STATE = &H8
  112. Public Const DFCS_BUTTONPUSH = &H10
  113. Public Const DFCS_INACTIVE = &H100
  114. Public Const DFCS_PUSHED = &H200
  115. Public Const DFCS_CHECKED = &H400
  116. Public Const DFCS_TRANSPARENT = &H800
  117. Public Const DFCS_HOT = &H1000
  118. Public Const DFCS_ADJUSTRECT = &H2000
  119. Public Const DFCS_FLAT = &H4000
  120. Public Const DFCS_MONO = &H8000
  121.  
  122.  
  123. Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Long) As Long
  124. Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  125. Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  126. Declare Function GetClientRect Lib "user32" (ByVal HWND As Long, lpRect As RECT) As Long
  127. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  128. Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
  129. Declare Function DrawMenuBar Lib "user32" (ByVal HWND As Long) As Long
  130. Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
  131. Declare Function GetWindowRect Lib "user32" (ByVal HWND As Long, lpRect As RECT) As Long
  132. Declare Function ScreenToClient Lib "user32" (ByVal HWND As Long, lpPoint As POINTAPI) As Long
  133. Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
  134. Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  135. Declare Function GetSysColorBrush Lib "user32" (ByVal nIndex As Long) As Long
  136. Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  137. Declare Function DrawCaption Lib "user32" (ByVal HWND As Long, ByVal hdc As Long, pcRect As RECT, ByVal un As Long) As Long
  138. Declare Function DrawFrameControl Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
  139. Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  140. Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  141. Declare Function GetActiveWindow Lib "user32" () As Long
  142. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  143.  
  144.  
  145.  
  146.